home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / phones_1 / frmhighs.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-03-13  |  8.6 KB  |  275 lines
  1. VERSION 4.00
  2. Begin VB.Form frmHighScores 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "High Scores"
  7.    ClientHeight    =   2625
  8.    ClientLeft      =   6555
  9.    ClientTop       =   4845
  10.    ClientWidth     =   3495
  11.    ControlBox      =   0   'False
  12.    BeginProperty Font 
  13.       name            =   "MS Sans Serif"
  14.       charset         =   0
  15.       weight          =   700
  16.       size            =   8.25
  17.       underline       =   0   'False
  18.       italic          =   0   'False
  19.       strikethrough   =   0   'False
  20.    EndProperty
  21.    ForeColor       =   &H00000000&
  22.    Height          =   3030
  23.    Left            =   6495
  24.    LinkTopic       =   "Form2"
  25.    MaxButton       =   0   'False
  26.    MinButton       =   0   'False
  27.    ScaleHeight     =   2625
  28.    ScaleWidth      =   3495
  29.    Top             =   4500
  30.    Width           =   3615
  31.    Begin VB.CommandButton cmdOK 
  32.       Appearance      =   0  'Flat
  33.       BackColor       =   &H80000005&
  34.       Caption         =   "OK"
  35.       Height          =   375
  36.       Left            =   1104
  37.       TabIndex        =   10
  38.       Top             =   2136
  39.       Width           =   1275
  40.    End
  41.    Begin VB.Label Label2 
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H80000005&
  44.       BackStyle       =   0  'Transparent
  45.       Caption         =   "Score"
  46.       BeginProperty Font 
  47.          name            =   "MS Sans Serif"
  48.          charset         =   0
  49.          weight          =   700
  50.          size            =   9.75
  51.          underline       =   0   'False
  52.          italic          =   0   'False
  53.          strikethrough   =   0   'False
  54.       EndProperty
  55.       ForeColor       =   &H0000FFFF&
  56.       Height          =   288
  57.       Index           =   4
  58.       Left            =   2400
  59.       TabIndex        =   6
  60.       Top             =   1716
  61.       Width           =   912
  62.    End
  63.    Begin VB.Label Label2 
  64.       Appearance      =   0  'Flat
  65.       BackColor       =   &H80000005&
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "Score"
  68.       BeginProperty Font 
  69.          name            =   "MS Sans Serif"
  70.          charset         =   0
  71.          weight          =   700
  72.          size            =   9.75
  73.          underline       =   0   'False
  74.          italic          =   0   'False
  75.          strikethrough   =   0   'False
  76.       EndProperty
  77.       ForeColor       =   &H0000FFFF&
  78.       Height          =   288
  79.       Index           =   3
  80.       Left            =   2400
  81.       TabIndex        =   9
  82.       Top             =   1320
  83.       Width           =   912
  84.    End
  85.    Begin VB.Label Label2 
  86.       Appearance      =   0  'Flat
  87.       BackColor       =   &H80000005&
  88.       BackStyle       =   0  'Transparent
  89.       Caption         =   "Score"
  90.       BeginProperty Font 
  91.          name            =   "MS Sans Serif"
  92.          charset         =   0
  93.          weight          =   700
  94.          size            =   9.75
  95.          underline       =   0   'False
  96.          italic          =   0   'False
  97.          strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H0000FFFF&
  100.       Height          =   288
  101.       Index           =   2
  102.       Left            =   2400
  103.       TabIndex        =   8
  104.       Top             =   936
  105.       Width           =   912
  106.    End
  107.    Begin VB.Label Label2 
  108.       Appearance      =   0  'Flat
  109.       BackColor       =   &H80000005&
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "Score"
  112.       BeginProperty Font 
  113.          name            =   "MS Sans Serif"
  114.          charset         =   0
  115.          weight          =   700
  116.          size            =   9.75
  117.          underline       =   0   'False
  118.          italic          =   0   'False
  119.          strikethrough   =   0   'False
  120.       EndProperty
  121.       ForeColor       =   &H0000FFFF&
  122.       Height          =   288
  123.       Index           =   1
  124.       Left            =   2400
  125.       TabIndex        =   7
  126.       Top             =   576
  127.       Width           =   912
  128.    End
  129.    Begin VB.Label Label2 
  130.       Appearance      =   0  'Flat
  131.       BackColor       =   &H80000005&
  132.       BackStyle       =   0  'Transparent
  133.       Caption         =   "Score"
  134.       BeginProperty Font 
  135.          name            =   "MS Sans Serif"
  136.          charset         =   0
  137.          weight          =   700
  138.          size            =   9.75
  139.          underline       =   0   'False
  140.          italic          =   0   'False
  141.          strikethrough   =   0   'False
  142.       EndProperty
  143.       ForeColor       =   &H0000FFFF&
  144.       Height          =   288
  145.       Index           =   0
  146.       Left            =   2400
  147.       TabIndex        =   5
  148.       Top             =   240
  149.       Width           =   912
  150.    End
  151.    Begin VB.Label Label1 
  152.       Appearance      =   0  'Flat
  153.       BackColor       =   &H80000005&
  154.       BackStyle       =   0  'Transparent
  155.       Caption         =   "Name"
  156.       BeginProperty Font 
  157.          name            =   "MS Sans Serif"
  158.          charset         =   0
  159.          weight          =   700
  160.          size            =   9.75
  161.          underline       =   0   'False
  162.          italic          =   0   'False
  163.          strikethrough   =   0   'False
  164.       EndProperty
  165.       ForeColor       =   &H000000FF&
  166.       Height          =   315
  167.       Index           =   4
  168.       Left            =   168
  169.       TabIndex        =   4
  170.       Top             =   1800
  171.       Width           =   1776
  172.    End
  173.    Begin VB.Label Label1 
  174.       Appearance      =   0  'Flat
  175.       BackColor       =   &H80000005&
  176.       BackStyle       =   0  'Transparent
  177.       Caption         =   "Name"
  178.       BeginProperty Font 
  179.          name            =   "MS Sans Serif"
  180.          charset         =   0
  181.          weight          =   700
  182.          size            =   9.75
  183.          underline       =   0   'False
  184.          italic          =   0   'False
  185.          strikethrough   =   0   'False
  186.       EndProperty
  187.       ForeColor       =   &H000000FF&
  188.       Height          =   315
  189.       Index           =   3
  190.       Left            =   168
  191.       TabIndex        =   3
  192.       Top             =   1380
  193.       Width           =   1776
  194.    End
  195.    Begin VB.Label Label1 
  196.       Appearance      =   0  'Flat
  197.       BackColor       =   &H80000005&
  198.       BackStyle       =   0  'Transparent
  199.       Caption         =   "Name"
  200.       BeginProperty Font 
  201.          name            =   "MS Sans Serif"
  202.          charset         =   0
  203.          weight          =   700
  204.          size            =   9.75
  205.          underline       =   0   'False
  206.          italic          =   0   'False
  207.          strikethrough   =   0   'False
  208.       EndProperty
  209.       ForeColor       =   &H000000FF&
  210.       Height          =   315
  211.       Index           =   2
  212.       Left            =   168
  213.       TabIndex        =   2
  214.       Top             =   990
  215.       Width           =   1776
  216.    End
  217.    Begin VB.Label Label1 
  218.       Appearance      =   0  'Flat
  219.       BackColor       =   &H80000005&
  220.       BackStyle       =   0  'Transparent
  221.       Caption         =   "Name"
  222.       BeginProperty Font 
  223.          name            =   "MS Sans Serif"
  224.          charset         =   0
  225.          weight          =   700
  226.          size            =   9.75
  227.          underline       =   0   'False
  228.          italic          =   0   'False
  229.          strikethrough   =   0   'False
  230.       EndProperty
  231.       ForeColor       =   &H000000FF&
  232.       Height          =   315
  233.       Index           =   1
  234.       Left            =   168
  235.       TabIndex        =   1
  236.       Top             =   600
  237.       Width           =   1776
  238.    End
  239.    Begin VB.Label Label1 
  240.       Appearance      =   0  'Flat
  241.       BackColor       =   &H80000005&
  242.       BackStyle       =   0  'Transparent
  243.       Caption         =   "Name"
  244.       BeginProperty Font 
  245.          name            =   "MS Sans Serif"
  246.          charset         =   0
  247.          weight          =   700
  248.          size            =   9.75
  249.          underline       =   0   'False
  250.          italic          =   0   'False
  251.          strikethrough   =   0   'False
  252.       EndProperty
  253.       ForeColor       =   &H000000FF&
  254.       Height          =   312
  255.       Index           =   0
  256.       Left            =   168
  257.       TabIndex        =   0
  258.       Top             =   240
  259.       Width           =   1776
  260.    End
  261. Attribute VB_Name = "frmHighScores"
  262. Attribute VB_Creatable = False
  263. Attribute VB_Exposed = False
  264. Option Explicit
  265. Private Sub cmdOK_Click()
  266. Unload Me
  267. End Sub
  268. Private Sub Form_Load()
  269. Dim X As Integer
  270. For X = 0 To 4
  271.   Label1(X).Caption = HighScores(X).Name
  272.   label2(X).Caption = HighScores(X).NumEnemyDead
  273. Next X
  274. End Sub
  275.